with Rational_Numbers;
private function Rational_Numbers.Reduce(X : Rational) return Rational;
